inherited FPedido: TFPedido
  Left = 359
  Top = 174
  Caption = 'Pedido'
  ClientHeight = 395
  ClientWidth = 489
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 489
    Height = 395
    inherited Panel2: TPanel
      Width = 487
      inherited BtnFechar: TBitBtn
        Left = 409
      end
    end
    inherited Panel3: TPanel
      Top = 324
      Width = 487
      inherited BtnConsuta: TBitBtn
        OnClick = BtnConsutaClick
      end
      inherited DBNavigator1: TDBNavigator
        DataSource = DSPedido
        Hints.Strings = ()
      end
    end
    object PageControl: TPageControl
      Left = 1
      Top = 62
      Width = 487
      Height = 262
      ActivePage = TSPedido
      Align = alClient
      TabIndex = 0
      TabOrder = 2
      object TSPedido: TTabSheet
        Caption = 'Pedido'
        object Label1: TLabel
          Left = 0
          Top = 4
          Width = 33
          Height = 13
          Caption = 'C'#243'digo'
        end
        object DBText1: TDBText
          Left = 1
          Top = 20
          Width = 76
          Height = 17
          BiDiMode = bdLeftToRight
          DataField = 'PED_CODIGO'
          DataSource = DSPedido
          ParentBiDiMode = False
        end
        object Label2: TLabel
          Left = 1
          Top = 75
          Width = 49
          Height = 13
          Caption = 'Solicitante'
          FocusControl = DBESolicitante
        end
        object Label3: TLabel
          Left = 1
          Top = 184
          Width = 19
          Height = 13
          Caption = 'Obs'
        end
        object Label5: TLabel
          Left = 1
          Top = 111
          Width = 54
          Height = 13
          Caption = 'Fornecedor'
        end
        object Label4: TLabel
          Left = 1
          Top = 147
          Width = 72
          Height = 13
          Caption = 'Transportadora'
        end
        object Label6: TLabel
          Left = 1
          Top = 38
          Width = 23
          Height = 13
          Caption = 'Data'
        end
        object Label7: TLabel
          Left = 111
          Top = 38
          Width = 53
          Height = 13
          Caption = 'Nota Fiscal'
          FocusControl = DBENotaFiscal
        end
        object Label8: TLabel
          Left = 199
          Top = 38
          Width = 63
          Height = 13
          Caption = 'Data Entrega'
        end
        object DBESolicitante: TDBEdit
          Left = 1
          Top = 89
          Width = 472
          Height = 21
          CharCase = ecUpperCase
          DataField = 'PED_SOLICITANTE'
          DataSource = DSPedido
          TabOrder = 4
        end
        object DBLCBFornecedor: TDBLookupComboBox
          Left = 1
          Top = 125
          Width = 473
          Height = 21
          DataField = 'PED_FORNECEDOR'
          DataSource = DSPedido
          KeyField = 'FORN_CODIGO'
          ListField = 'FORN_RAZAO'
          ListSource = DSFornecedor
          TabOrder = 5
          OnKeyDown = DBLCBFornecedorKeyDown
        end
        object DBLCBTransportadora: TDBLookupComboBox
          Left = 1
          Top = 161
          Width = 473
          Height = 21
          DataField = 'PED_TRANSPORTADORA'
          DataSource = DSPedido
          KeyField = 'TRANS_CODIGO'
          ListField = 'TRANS_NOME'
          ListSource = DSTransportadora
          TabOrder = 6
          OnKeyDown = DBLCBFornecedorKeyDown
        end
        object DBENotaFiscal: TDBEdit
          Left = 111
          Top = 54
          Width = 81
          Height = 21
          DataField = 'PED_NF'
          DataSource = DSPedido
          TabOrder = 2
        end
        object DBDEData: TDBDateEdit
          Left = 1
          Top = 54
          Width = 106
          Height = 21
          DataField = 'PED_DATA'
          DataSource = DSPedido
          NumGlyphs = 2
          TabOrder = 1
          OnEnter = DBDEDataEnter
        end
        object DBDEDataEntrega: TDBDateEdit
          Left = 199
          Top = 54
          Width = 100
          Height = 21
          DataField = 'PED_DATAENTREGA'
          DataSource = DSPedido
          NumGlyphs = 2
          TabOrder = 3
        end
        object BtnImprimir: TBitBtn
          Left = 402
          Top = 7
          Width = 74
          Height = 26
          Caption = '&Imprimir'
          TabOrder = 7
          OnClick = BtnImprimirClick
          Glyph.Data = {
            76050000424D7605000000000000360400002800000012000000100000000100
            08000000000040010000C30E0000C30E00000001000000000000000000008080
            8000000080000080800000800000808000008000000080008000408080004040
            0000FF80000080400000FF00400000408000FFFFFF00C0C0C0000000FF0000FF
            FF0000FF0000FFFF0000FF000000FF00FF0080FFFF0080FF0000FFFF8000FF80
            80008000FF004080FF00C0DCC000F0CAA60060208000C0FFFF00E0E0A0008000
            60008080FF00C0800000FFC0C000FFCF0000FFFF6900E0FFE000B39CDD00EE8F
            B300F96F2A00CDB83F0036844800418C9500425E8E007A62A000AC4F6200BE2F
            1D007666280000450000013E450013286A006A39850085324A00040404000808
            08000C0C0C0011111100161616001C1C1C002222220029292900303030005F5F
            5F00555555004D4D4D0042424200393939000007000000000D008199B700B499
            840090BDBD00607F7F007F606000000E000000001B00000028002B090800001D
            0000000039009B00000000250000000049003B111100002F000000005D004517
            1700003A000011114900531C1C00FF160000FF002B006C212100141459000051
            00006A1A47006732190000610000FF310000FF0061007B20530067431600E22E
            2E001659260004465100492E68008F520700B8186A0015239000FF530000FF00
            A300124A6A006C3375009A414A000B653700152CA400B11F8300FF2C4E00B651
            2000926408000B566F00AD435900127236001733B00000A100001F5F77007147
            89001C43B0007D2DB70095860000236E7A00009F260001A9730000CA0000015B
            AC00C21D2000705294004CAA240089940A007B6E360090754400A800FF00FF71
            0000FF00DF004A915600F84834008232CC007041E40001CA680042BC3600FF9A
            0000B7229600337D85008CB72500ED5A360000FF5C000048FF00A29B22004DCF
            42005258C20095D32000E024A500B556730000A9A9003C6FD000589F67000BCF
            890000ACFF00FE2EA7007F59E20067DC4C00FF18FF00FF7D3A0018D0B10000FF
            C70000E2FF003D9ADF009F815600BA43C6008B71AF00C9A23800CE53D100659A
            FF00DBCA4600FF4DFF006AE9C800E0DE4C00FF98FF0082C0DF00A5ECE900CDF6
            F500FFD0FF005AACB100AE916300654C22003F4E8D0070705000FFFFD000FFE7
            FF00696969007777770086868600969696009D9D9D00A4A4A400B2B2B200CBCB
            CB00D7D7D700DDDDDD00E3E3E300EAEAEA00F1F1F100F8F8F80066C1B20078BF
            8000F0F0C600FFA4B200FFB3FF00A38ED10037DCC300549EA00070AE7600C19E
            7800BF648300D383A400323FD100007DFF0023784400605F24002C0E0E000000
            BE00001FFF00003931003E85D9008577020081D8B0001D21560030000000B3C8
            88000079A0008170EA0069F15100CD749100FF7CFF00FFFFA200F0FBFF00A4A0
            A000537F200029798A00326932007F05EC00AC112F00423FEE000F0E00000000
            00000000000000000000000F00000F0E0101010101010101010101010101000F
            00000E010101010101010101010101010101010000000E0F0F0F0F0F0F0F0F0F
            0F0F0F0F0F0F0F0000000E0F12040F0F0F0F0F0F000F000F000F0F0000000E0F
            0F0E0E0E0E0E0E0E0E0E0E0E0E0E0F0000000E0E0E0F0F0F0F0F0F0F0F0F0F0F
            0F0F0E0E00000F0F0F0E0E0E0E0E0E0E0E0E0E0E0E010F0F00000F0F0F0E0F0F
            0F0F0F0F0F0F0F0F0E010F0F00000F0F0F0E0E0E0E0E0E0E0E0E0E0E0E010F0F
            00000F0F0F0E0F0F0F0F0F0F0F0F0F0F0E010F0F00000F0F0F0E0E0E0E0E0E0E
            0E0E0E0E0E010F0F00000F0F0F0E0F0F0F0F0F0F0F0F0F0F0E010F0F00000F0F
            0F0E0E0E0E0E0E0E0E0E0E0101010F0F00000F0F0F0E0E0E0E0E0E0E0E0E0E01
            0E0F0F0F00000F0F0F0E0E0E0E0E0E0E0E0E0E010F0F0F0F0000}
        end
        object DBRGSituacaoPedido: TDBRadioGroup
          Tag = 5
          Left = 81
          Top = 4
          Width = 156
          Height = 34
          Caption = 'Situa'#231#227'o'
          Columns = 2
          DataField = 'PED_SITUACAO'
          DataSource = DSPedido
          Enabled = False
          Items.Strings = (
            'Em aberto'
            'Encerrado')
          TabOrder = 0
          Values.Strings = (
            '0'
            '1')
        end
        object DBMOBS: TDBMemo
          Left = 1
          Top = 197
          Width = 471
          Height = 52
          DataField = 'PED_OBS'
          DataSource = DSPedido
          MaxLength = 255
          TabOrder = 8
        end
      end
      object TSItensPedido: TTabSheet
        Caption = 'Itens do Pedido'
        ImageIndex = 1
        object Label32: TLabel
          Left = 1
          Top = 35
          Width = 37
          Height = 13
          Caption = 'Produto'
        end
        object Label35: TLabel
          Left = 0
          Top = 70
          Width = 55
          Height = 13
          Caption = 'Quantidade'
        end
        object Label27: TLabel
          Left = 74
          Top = 70
          Width = 63
          Height = 13
          Caption = 'Valor Unit'#225'rio'
        end
        object Label28: TLabel
          Left = 0
          Top = 1
          Width = 72
          Height = 13
          Caption = 'C'#243'digo produto'
        end
        object Label66: TLabel
          Left = 82
          Top = 1
          Width = 92
          Height = 13
          Caption = 'Refer'#234'ncia Produto'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label38: TLabel
          Left = 222
          Top = 1
          Width = 109
          Height = 13
          Caption = 'Refer'#234'ncia Fornecedor'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBGrid1: TDBGrid
          Tag = 5
          Left = 0
          Top = 136
          Width = 479
          Height = 98
          Align = alBottom
          DataSource = DSItensPedido
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
          TabOrder = 10
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnCellClick = DBGrid1CellClick
          OnKeyUp = DBGrid1KeyUp
          Columns = <
            item
              Expanded = False
              FieldName = 'ITENS_PED_CODIGO'
              Title.Caption = 'Codigo'
              Width = 40
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PROD_DESCRICAOSAI'
              Title.Caption = 'Produto'
              Width = 90
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ITENS_PED_QUANTIDADE'
              Title.Caption = 'Quantidade'
              Width = 65
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ITENS_PED_VALOR'
              Title.Caption = 'Valor'
              Width = 74
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ITENS_PED_QUANTIDADEATEN'
              ReadOnly = True
              Title.Caption = 'Quantidade Atendida'
              Width = 121
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ITENS_PED_SITUACAO'
              PickList.Strings = (
                'Ativo'
                'Encerrado')
              Title.Caption = 'Situa'#231#227'o'
              Width = 54
              Visible = True
            end>
        end
        object BtnIncluirProduto: TBitBtn
          Tag = 1
          Left = 1
          Top = 110
          Width = 56
          Height = 20
          Caption = 'I&ncluir'
          TabOrder = 7
          OnClick = BtnIncluirProdutoClick
        end
        object BtnAlterarProduto: TBitBtn
          Tag = 1
          Left = 61
          Top = 110
          Width = 56
          Height = 20
          Caption = 'Alterar'
          TabOrder = 8
          OnClick = BtnAlterarProdutoClick
        end
        object BtnDeletarProduto: TBitBtn
          Tag = 1
          Left = 121
          Top = 110
          Width = 56
          Height = 20
          Caption = 'Excluir'
          TabOrder = 9
          OnClick = BtnDeletarProdutoClick
        end
        object DBLCBProduto: TDBLookupComboBox
          Left = 1
          Top = 48
          Width = 473
          Height = 21
          Hint = '(F3) Visualizar Descri'#231#227'o - (F7) Todos - (F8) Fornecedor'
          KeyField = 'PROD_CODIGO'
          ListField = 'PROD_DESCRICAOSAI'
          ListSource = DSProduto
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          OnKeyDown = DBLCBProdutoKeyDown
        end
        object EQuantidade: TEdit
          Left = 0
          Top = 84
          Width = 70
          Height = 21
          TabOrder = 4
          OnExit = EQuantidadeExit
          OnKeyPress = EQuantidadeKeyPress
        end
        object EValorProduto: TEdit
          Left = 74
          Top = 84
          Width = 70
          Height = 21
          BiDiMode = bdLeftToRight
          ParentBiDiMode = False
          TabOrder = 5
          OnEnter = EValorProdutoEnter
          OnExit = EValorProdutoExit
          OnKeyPress = EQuantidadeKeyPress
        end
        object RGSituacaoItempedido: TRadioGroup
          Left = 147
          Top = 72
          Width = 169
          Height = 33
          Caption = 'Situa'#231#227'o'
          Columns = 2
          ItemIndex = 0
          Items.Strings = (
            'Em aberto'
            'Encerrado')
          TabOrder = 6
        end
        object ECodigoProduto: TEdit
          Left = 0
          Top = 14
          Width = 74
          Height = 21
          MaxLength = 9
          TabOrder = 0
          OnExit = ECodigoProdutoExit
          OnKeyPress = ECodigoProdutoKeyPress
          OnKeyUp = ECodigoProdutoKeyUp
        end
        object EReferenciaProduto: TEdit
          Left = 82
          Top = 14
          Width = 134
          Height = 21
          MaxLength = 20
          TabOrder = 1
          OnExit = EReferenciaProdutoExit
          OnKeyUp = EReferenciaProdutoKeyUp
        end
        object EreferenciaFornecedor: TEdit
          Left = 222
          Top = 14
          Width = 115
          Height = 21
          MaxLength = 20
          TabOrder = 2
          OnKeyUp = EreferenciaFornecedorKeyUp
        end
      end
    end
    object Panel4: TPanel
      Left = 1
      Top = 36
      Width = 487
      Height = 26
      Align = alTop
      Caption = 'Panel4'
      TabOrder = 3
      object Label34: TLabel
        Left = 0
        Top = 4
        Width = 39
        Height = 13
        Caption = 'Pedido :'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DBText10: TDBText
        Left = 42
        Top = 4
        Width = 60
        Height = 17
        DataField = 'PED_CODIGO'
        DataSource = DSPedido
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label36: TLabel
        Left = 104
        Top = 4
        Width = 60
        Height = 13
        Caption = 'Fornecedor :'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DBText11: TDBText
        Left = 169
        Top = 4
        Width = 310
        Height = 17
        DataField = 'FORN_RAZAO'
        DataSource = DSFornecedor
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
    end
  end
  object QPedido: TQuery
    AfterInsert = QPedidoAfterInsert
    BeforePost = QPedidoBeforePost
    AfterPost = QPedidoAfterPost
    AfterCancel = QPedidoAfterCancel
    DatabaseName = 'BasePedido'
    RequestLive = True
    SQL.Strings = (
      'Select * from Pedido'
      'Order By Ped_Codigo')
    Left = 72
    Top = 360
  end
  object DSPedido: TDataSource
    DataSet = QPedido
    Left = 104
    Top = 360
  end
  object QItensPedido: TQuery
    OnPostError = QItensPedidoPostError
    DatabaseName = 'BasePedido'
    SQL.Strings = (
      
        'Select ItensPedido.* , Prod_DescricaoSai  from ItensPedido left ' +
        'join produto on Itens_Ped_Produto = Prod_Codigo ')
    Left = 288
    Top = 360
  end
  object DSItensPedido: TDataSource
    DataSet = QItensPedido
    Left = 320
    Top = 360
  end
  object DSFornecedor: TDataSource
    DataSet = DMGestao.QFornecedor
    Left = 400
    Top = 360
  end
  object DSTransportadora: TDataSource
    DataSet = DMGestao.QTransportadora
    Left = 432
    Top = 360
  end
  object DBPedido: TDatabase
    AliasName = 'Gestao'
    DatabaseName = 'BasePedido'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=LINKTEC'
      'PASSWORD=172026')
    SessionName = 'Default'
    Left = 40
    Top = 360
  end
  object QAux: TQuery
    DatabaseName = 'BasePedido'
    Left = 360
    Top = 360
  end
  object DSProduto: TDataSource
    DataSet = QProduto
    Left = 208
    Top = 362
  end
  object QVerifica: TQuery
    DatabaseName = 'BasePedido'
    SQL.Strings = (
      'Select * from ItensPedido')
    Left = 254
    Top = 360
  end
  object QProduto: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from Produto'
      'Where Prod_Natureza in (0,1)'
      'Order by Prod_DescricaoEnt')
    Left = 161
    Top = 362
  end
end
